10 PR=1:REM SET PR=0 FOR 1526 SERIES, PR=1 FOR 1525 SERIES
20 SM=1024:CM=55296:REM SM=3072:CM=2048 ON THE PLUS 4/16
30 B$=CHR$(8):C1$=CHR$(14):C$=CHR$(15):REM PRINTER CODES
40 IFPR=0THENB$=""
50 D$=CHR$(207):E$=CHR$(165):F$=CHR$(163)
60 PRINT"[147]":PRINT"[145]           MEMORY MAP PRINTER           "
70 PRINT" 1 [146] SMALL SCREEN MAP"
80 PRINT" 2 [146] SMALL COLOR MAP"
90 PRINT" 3 [146] SMALL GRAPHIC 320 X 200 MAP"
100 PRINT" 4 [146] LARGE SCREEN MAP"
110 PRINT" 5 [146] LARGE COLOR MAP"
120 PRINT" 6 [146] LARGE GRAPHICS MAP"
130 PRINT" 7 [146] QUIT"
140 PRINT"MAKE YOUR SELECTION"
150 GETA$:IFA$=""THEN150
160 A=ASC(A$)-48:IFA=7THEN210:IFA<1ORA>6THEN150
170 GOSUB490:ONAGOSUB220,230,240,340,360,380
180 PRINT"[147]PRINT ANOTHER ?"
190 GETA$:IFA$=""THEN190
200 IFA$="Y"THEN60
210 PRINT"[147]":END
220 S$="SCREEN":S=SM:GOSUB620:RETURN
230 S$="COLOR":S=CM:GOSUB620:RETURN
240 PRINT#4,C1$"SMALL GRAPHICS MAP"
250 X=24:GOSUB500
260 PRINT#4,"0   .    1    .    2    .    3"
270 PRINT#4,"         0         0         0"
280 PRINT#4,"         0         0         0"
290 FORI=10TO200STEP10:PRINT#4,C$;
300 FORX=1TO32:PRINT#4,D$;:NEXT:PRINT#4,"[212]";:PRINT#4,I;B$
310 NEXTI
320 PRINT#4,C$"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
330 GOSUB520:RETURN
340 PRINT#4,C1$"          LARGE SCREEN MAP"
350 X=22:GOSUB500:S=SM:S$=STR$(S):GOSUB530:RETURN
360 PRINT#4,C1$"          LARGE COLOR MAP"
370 X=22:GOSUB500:S=CM:S$=STR$(S):GOSUB530:RETURN
380 PRINT#4,C1$"         LARGE GRAPHICS MAP"
390 X=18:GOSUB500
400 PRINT#4,"[176][195] THIS BLOCK IS ADDRESS 0,0. ADD 10 GOING DOWN AND ACROSS"B$
410 PRINT#4,C$"[221]"B$
420 FORX=10TO200STEP10
430 PRINT#4,C1$;:FORI=1TO32:PRINT#4,D$;:NEXTI
440 PRINT#4,E$B$
450 PRINT#4,C1$;:FORI=1TO33:PRINT#4,E$;:NEXTI
460 PRINT#4,B$:NEXTX
470 PRINT#4,C1$"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
480 GOSUB520:RETURN
490 PRINT"[147]PRINTING...":OPEN4,4:RETURN
500 IFPR=0THENOPEN6,4,6:PRINT#6,CHR$(X):CLOSE6
510 PRINT#4,C$:RETURN
520 PRINT#4,C$:PRINT#4:CLOSE4:RETURN
530 PRINT#4,"[176][195] THIS BLOCK STARTS AT"S$". ADD 40 FOR EACH ROW YOU GO DOWN."B$
540 PRINT#4,C$"[221]"B$:FORX=1TO25
550 PRINT#4,C1$;:FORI=0TO39
560 PRINT#4,D$;:NEXTI:PRINT#4,B$
570 PRINT#4,C1$;:FORI=0TO39
580 PRINT#4,E$;:NEXTI:PRINT#4,B$:NEXTX
590 PRINT#4,C1$;:FORI=0TO39
600 PRINT#4,F$;:NEXTI
610 X=24:GOSUB500:FORX=STOS+960STEP40:PRINT#4,X:NEXT:GOSUB520:RETURN
620 PRINT#4,C1$"   SMALL "S$" MAP"
630 P$="      ":IFS=CMTHENP$="       "
640 X=24:GOSUB500
650 PRINT#4,P$"0    .    1    .    2    .    3    ."
660 PRINT#4,P$"          0         0         0"
670 FORI=STOS+960STEP40
680 PRINT#4,C$I;:FORX=0TO39:PRINT#4,D$;:NEXT:PRINT#4,"[212]"B$:NEXTI
690 PRINT#4,C$P$"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
700 GOSUB520:RETURN